var
  AX, AY: ShortInt;
  HX, HY, BX, BY: Integer;
  A, B, C, D, E, F, G, I, J, K, L, M, N, X, Y, Z: Integer;
  P, R, S, T: String;
  Q: Boolean;